From: Johan Bockgård Date: Sat, 4 Jul 2009 13:20:09 +0000 (+0000) Subject: (eshell-parse-argument-hook): Put `number' property on entire argument X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~11656 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=69f46998851ab3e788cab3bcadf9a9bd063ca710;p=emacs.git (eshell-parse-argument-hook): Put `number' property on entire argument since this is what eshell-lisp-command expects. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7318bfcf51d..0ed4d85dff3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-07-04 Johan BockgÃ¥rd + + * eshell/esh-arg.el (eshell-parse-argument-hook): Put `number' + property on entire argument since this is what eshell-lisp-command + expects. + 2009-07-03 Michael Albinus * net/tramp-gvfs.el (tramp-gvfs-methods) diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el index 590c22f5864..e2292793025 100644 --- a/lisp/eshell/esh-arg.el +++ b/lisp/eshell/esh-arg.el @@ -53,7 +53,7 @@ yield the values intended." (goto-char (match-end 0)) (let ((str (match-string 0))) (if (> (length str) 0) - (add-text-properties 0 1 '(number t) str)) + (add-text-properties 0 (length str) '(number t) str)) str)))) ;; parse any non-special characters, based on the current context